(ispell-message): Avoid an infinite loop.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 68acd165bdc157c40521e7c398395acc4d06cbb2..268bd76bbd9da376358604f9709494f8752ace71 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1991,7 +1991,12 @@ you can bind this to the key C-c i in GNUS or mail by adding to
        ;; Skip across text cited from other messages.
        (while (and (looking-at cite-regexp-start)
                    (< (point) limit))
-         (forward-line 1))
+         (let ((point1 (point)))
+           (forward-line 1)
+           ;; If there's no next line, go to the end of this one
+           ;; so that the loop stops looping.
+           (if (eq point1 (point))
+               (end-of-line))))
        (if (< (point) limit)
            ;; Check the next batch of lines that *aren't* cited.
            (let ((end (save-excursion